home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / COMPUTER / 0966.ZIP / ETCH.ARC / SETUP.BAS < prev    next >
BASIC Source File  |  1986-12-07  |  5KB  |  83 lines
  1. 10 COLOR 7,0: CLS: SCREEN 0,0,0: KEY OFF
  2. 20 GOSUB 5000
  3. 70 LOCATE 2,3: PRINT CHR$(218);STRING$(74,196);CHR$(191);
  4. 80 LOCATE 3,3: PRINT CHR$(179);"                     ETCH CGA Setup Utility programme.                    ";CHR$(179);
  5. 90 LOCATE 4,3: PRINT CHR$(179);"        Copyright (c) Computer Software International. 1986, 1987.        ";CHR$(179);
  6. 100 LOCATE 5,3: PRINT CHR$(192);STRING$(74,196);CHR$(217);
  7. 110 LOCATE 7,35: PRINT "Disk Path.";: LOCATE 9,35: PRINT "Font Type.";: LOCATE 11,38: PRINT "Quit";
  8. 120 C=0
  9. 125 LOCATE 7+C,30: COLOR 0,7,0: PRINT "     Disk Path.     ";
  10. 126 LOCATE 24,2: PRINT "           Use the <SPACEBAR> to choose an option, and press <RETURN>         ";
  11. 130 A$=INKEY$: IF A$="" THEN GOTO 130
  12. 140 IF A$=" " THEN C=C+2 ELSE IF A$=CHR$(13) THEN GOTO 230 ELSE GOTO 130
  13. 150 IF C>4 THEN C=0
  14. 160 LOCATE 7+C,30: COLOR 0,7
  15. 170 IF C=0 THEN PRINT "     Disk Path.      ";: LOCATE 11,30: COLOR 7,0: PRINT "        Quit         ";
  16. 190 IF C=2 THEN PRINT "     Font Type.      ";: LOCATE 7+C-2,30: COLOR 7,0: PRINT "     Disk Path.      ";
  17. 200 IF C=4 THEN PRINT "        Quit         ";: LOCATE 7+C-2,30: COLOR 7,0: PRINT "     Font Type.      ";
  18. 210 COLOR 7,0
  19. 220 GOTO 130
  20. 230 IF C=0 THEN C=1 ELSE C=(C/2)+1
  21. 240 ON C GOTO 250,450,650
  22. 250 ' Disk Path
  23. 260 COLOR 7,0: CLS: GOSUB 5000
  24. 265 COLOR 0,7: LOCATE 2,2: PRINT "                               Disk Path Utility.                             ";: COLOR 7,0
  25. 270 LOCATE 5,3: PRINT "The following files should be kept in the same disk drive or hard-disk sub-";
  26. 280 LOCATE 6,3: PRINT "directory whenever ETCH CGA is being used.";
  27. 290 LOCATE 8,10: PRINT "ETCH    .EXE          ETCH    .PIF          ETCH    .DAT";
  28. 300 LOCATE 9,10: PRINT "CSI     .DAT          SCREEN  .DAT          SETUP   .DAT";
  29. 310 LOCATE 10,10: PRINT"FONT1   .DAT          FONT2   .DAT          FONT3   .DAT";
  30. 320 LOCATE 12,3: PRINT "Enter the path with which these files may be located in your system.";
  31. 330 LOCATE 14,3: INPUT P$
  32. 340 LOCATE 16,3: PRINT "Is this input correct?  (Y/N)";
  33. 350 A$=INKEY$: IF A$="" THEN GOTO 350
  34. 360 IF (A$="Y" OR A$="y") THEN GOTO 380
  35. 370 IF (A$="N" OR A$="n") THEN LOCATE 14,3: PRINT SPC(75);: LOCATE 16,3: PRINT SPC(75);: GOTO 330
  36. 380 CLS: COLOR 7,0: GOTO 20
  37. 450 ' Font Type
  38. 460 COLOR 7,0: CLS: GOSUB 5000
  39. 470 COLOR 0,7: LOCATE 2,2: PRINT "                          User-Defined Font Type                              ";
  40. 480 COLOR 7,0: LOCATE 5,3: PRINT "ETCH CGA allows the user to access three fonts of 48 symbols, located in";
  41. 490 LOCATE 6,3: PRINT "three files:  FONT1.DAT, FONT2.DAT, FONT3.DAT.  In addition, the user may";
  42. 500 LOCATE 7,3: PRINT "create additional fonts using the template stored in FONTX.DAT, as described";
  43. 510 LOCATE 8,3: PRINT "in the users' manual.  In order for these additonal fonts to be recognized";
  44. 520 LOCATE 9,3: PRINT "please enter the number of user-defined fonts created.";
  45. 530 LOCATE 11,3: INPUT F$
  46. 540 IF VAL(F$)<0 OR VAL(F$)>6 THEN LOCATE 11,3: PRINT SPC(10);: GOTO 530
  47. 545 F$=STR$(VAL(F$)+3)
  48. 550 CLS: COLOR 7,0: GOTO 20
  49. 650 ' Quit
  50. 660 COLOR 7,0: CLS: GOSUB 5000
  51. 670 COLOR 0,7: LOCATE 2,2: PRINT "                                      Quit                                    ";: COLOR 7,0
  52. 680 LOCATE 7,32: PRINT "Quit & Save Changes";: LOCATE 9,32: PRINT "Quit Without Changes";: LOCATE 11,32: PRINT "Return to Main Menu.";
  53. 690 C=0
  54. 700 LOCATE 7+C,30: COLOR 0,7: PRINT "  Quit & Save Changes  ";
  55. 710 LOCATE 24,2: PRINT "           Use the <SPACEBAR> to choose an option, and press <RETURN>         ";
  56. 720 A$=INKEY$: IF A$="" THEN GOTO 720
  57. 730 IF A$=" " THEN C=C+2 ELSE IF A$=CHR$(13) THEN GOTO 810 ELSE GOTO 720
  58. 740 IF C>4 THEN C=0
  59. 750 LOCATE 7+C,30: COLOR 0,7
  60. 760 IF C=0 THEN PRINT "  Quit & Save Changes  ";: LOCATE 11,30: COLOR 7,0: PRINT "  Return to Main Menu. ";
  61. 770 IF C=2 THEN PRINT "  Quit Without Changes ";: LOCATE 7+C-2,30: COLOR 7,0: PRINT "  Quit & Save Changes   ";
  62. 780 IF C=4 THEN PRINT "  Return to Main Menu  ";: LOCATE 7+C-2,30: COLOR 7,0: PRINT "  Quit Without Changes  ";
  63. 790 COLOR 7,0
  64. 800 GOTO 720
  65. 810 IF C=0 THEN C=1 ELSE C=(C/2)+1
  66. 820 ON C GOTO 830,840,850
  67. 830 OPEN "SETUP.DAT" AS #1: FIELD #1,20 AS A$,10 AS B$,2 AS C$
  68. 831 GET #1,1
  69. 832 IF P$<>"" THEN LSET A$=P$
  70. 833 LSET B$="1"
  71. 834 IF F$<>"" THEN LSET C$=F$
  72. 835 PUT #1,1
  73. 836 CLOSE: COLOR 7,0: CLS: END
  74. 840 CLOSE: COLOR 7,0: CLS: END
  75. 850 COLOR 7,0: CLS: GOTO 20
  76. 5000 LOCATE 1,1: PRINT CHR$(201);STRING$(78,205);CHR$(187);
  77. 5010 LOCATE 25,1: PRINT CHR$(200);STRING$(78,205);CHR$(188);
  78. 5020 FOR Y=2 TO 24
  79. 5030      LOCATE Y,1: PRINT CHR$(186);: LOCATE Y,80: PRINT CHR$(186);
  80. 5040 NEXT Y
  81. 5050 RETURN                                                                    
  82. 10000 GOTO 10000
  83.